perm filename LIBMAC.DIF[PAS,SYS] blob
sn#487143 filedate 1979-12-10 generic text, type T, neo UTF8
1) LIBMAC.MAC[PAS,SYS] and 2) LIBMAC.BKP[PAS,SYS] 12-10-79 03:00 pages 1,1
**** File 1) LIBMAC.MAC[PAS,SYS], Page 1 line 1
1) COMMENT ⊗ VALID 00042 PAGES
1) C REC PAGE DESCRIPTION
**** File 2) LIBMAC.BKP[PAS,SYS], Page 1 line 1
2) COMMENT ⊗ VALID 00044 PAGES
2) C REC PAGE DESCRIPTION
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 1 line 13
1) C00025 00011 TITLE WRTOCT *** PROCEDURE WRTOCT ***
1) C00028 00012 TITLE WRTHEX *** PROCEDURE WRTHEX ***
1) C00030 00013 TITLE WRTBOL *** PROCEDURE WRTBOL ***
1) C00033 00014 TITLE READR *** PROCEDURE READR ***
1) C00039 00015 TITLE TRUNC *** FUNCTION TRUNC ***
1) C00042 00016 TITLE INTREA *** FUNCTION INTREA ***
1) C00045 00017 TITLE WRITEC *** PROCEDURE WRITEC ***
1) C00047 00018 TITLE WRTREA *** PROCEDURE WRTREA ***
1) C00056 00019 TITLE WRTINT *** PROCEDURE WRTINT ***
1) C00059 00020
1) C00060 00021 TITLE READI *** PROCEDURE READI ***
1) C00062 00022 TITLE TTYOPN *** PROCEDURE TTYOPN ***
1) C00064 00023
1) C00065 00024 TITLE OPEN *** PROCEDURES RESET AND REWRITE ***
1) C00077 00025 TITLE REASTR *** PROCEDURES READS AND READPS ***
1) C00082 00026 TITLE CLOSE *** PROCEDURE CLSFIL ***
1) C00085 00027 TITLE PUT *** PROCEDURES PUT, PUTCHR, PUTLN, PUTPG AND TMPCRW ***
1) C00095 00028 TITLE GET *** PROCEDURES GET, GETCH AND GETLN ***
1) C00106 00029 TITLE DATE *** PROCEDURE DATE ***
1) C00110 00030 TITLE TIME *** PROCEDURE TIME ***
1) C00113 00031 TITLE EXIT *** PROCEDURES WRTPC AND OTHER EXITS ***
1) C00118 00032 TITLE DEBSP *** DEBUG SUPPORT ***
1) C00128 00033
1) C00129 00034 TITLE WRTFNM *** PROCEDURES WRTFNM AND WRTSIX ***
1) C00133 00035 TITLE TMPTST *** PROCEDURE TMPTST ***
1) C00136 00036 TITLE ASTOSX *** PROCEDURE ASTOSX ***
1) C00138 00037 TITLE REAAUX *** PROCEDURES GETSGN, GETINT AND RTEST ***
1) C00143 00038 TITLE SETEOF *** PROCEDURE SETEOF ***
1) C00147 00039 TITLE WRTAUX *** PROCEDURES WRTBLK, TOOSML, WRTSGN AND WRTOPN ***
1) C00150 00040 TITLE FORER. *** PROCEDURE FORER. ***
1) C00151 00041 END
1) C00152 00042
1) C00153 ENDMK
1) C⊗;
**** File 2) LIBMAC.BKP[PAS,SYS], Page 1 line 13
2) C00024 00011
2) C00025 00012
2) C00026 00013 TITLE WRTOCT *** PROCEDURE WRTOCT ***
1) LIBMAC.MAC[PAS,SYS] and 2) LIBMAC.BKP[PAS,SYS] 12-10-79 03:00 pages 1,1
2) C00028 00014 TITLE WRTHEX *** PROCEDURE WRTHEX ***
2) C00030 00015 TITLE WRTBOL *** PROCEDURE WRTBOL ***
2) C00033 00016 TITLE READR *** PROCEDURE READR ***
2) C00039 00017 TITLE TRUNC *** FUNCTION TRUNC ***
2) C00042 00018 TITLE INTREA *** FUNCTION INTREA ***
2) C00045 00019 TITLE WRITEC *** PROCEDURE WRITEC ***
2) C00047 00020 TITLE WRTREA *** PROCEDURE WRTREA ***
2) C00056 00021 TITLE WRTINT *** PROCEDURE WRTINT ***
2) C00059 00022
2) C00060 00023 TITLE READI *** PROCEDURE READI ***
2) C00062 00024 TITLE TTYOPN *** PROCEDURE TTYOPN ***
2) C00064 00025
2) C00065 00026 TITLE OPEN *** PROCEDURES RESET AND REWRITE ***
2) C00077 00027 TITLE REASTR *** PROCEDURES READS AND READPS ***
2) C00082 00028 TITLE CLOSE *** PROCEDURE CLSFIL ***
2) C00085 00029 TITLE PUT *** PROCEDURES PUT, PUTCH, PUTLN, PUTPG AND TMPCRW ***
2) C00094 00030 TITLE GET *** PROCEDURES GET, GETCH AND GETLN ***
2) C00104 00031 TITLE DATE *** PROCEDURE DATE ***
2) C00108 00032 TITLE TIME *** PROCEDURE TIME ***
2) C00111 00033 TITLE EXIT *** PROCEDURES WRTPC AND OTHER EXITS ***
2) C00116 00034 TITLE DEBSP *** DEBUG SUPPORT ***
2) C00126 00035
2) C00127 00036 TITLE WRTFNM *** PROCEDURES WRTFNM AND WRTSIX ***
2) C00131 00037 TITLE TMPTST *** PROCEDURE TMPTST ***
2) C00134 00038 TITLE ASTOSX *** PROCEDURE ASTOSX ***
2) C00136 00039 TITLE REAAUX *** PROCEDURES GETSGN, GETINT AND RTEST ***
2) C00141 00040 TITLE SETEOF *** PROCEDURE SETEOF ***
2) C00145 00041 TITLE WRTAUX *** PROCEDURES WRTBLK, TOOSML, WRTSGN AND WRTOPN ***
2) C00148 00042 TITLE FORER. *** PROCEDURE FORER. ***
2) C00149 00043 END
2) C00150 00044
2) C00151 ENDMK
2) C⊗;
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 8 line 13
1) EXTERN PUTCHR
1) ;
**** File 2) LIBMAC.BKP[PAS,SYS], Page 8 line 13
2) EXTERN PUTCH
2) ;
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 8 line 51
1) PUSHJ TOPP ,PUTCHR
1) SOJA REG2 ,BLANK ;MORE LEADING BLANKS ?
1) LIBMAC.MAC[PAS,SYS] and 2) LIBMAC.BKP[PAS,SYS] 12-10-79 03:00 pages 8,8
1) START: ILDB AC0 ,REG1
1) PUSHJ TOPP ,PUTCHR
1) SOJG REG2 ,START ;ANY CHARACTER LEFT ?
**** File 2) LIBMAC.BKP[PAS,SYS], Page 8 line 51
2) PUSHJ TOPP ,PUTCH
2) SOJA REG2 ,BLANK ;MORE LEADING BLANKS ?
2) START: ILDB AC0 ,REG1
2) PUSHJ TOPP ,PUTCH
2) SOJG REG2 ,START ;ANY CHARACTER LEFT ?
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 11 line 11
1) EXTERN PUTCHR
1) ;
**** File 2) LIBMAC.BKP[PAS,SYS], Page 13 line 11
2) EXTERN PUTCH
2) ;
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 11 line 43
1) PUSHJ TOPP ,PUTCHR
1) SOJA REG2 ,WRTOIN ;MORE BLANKS TO BE INSERTED ?
**** File 2) LIBMAC.BKP[PAS,SYS], Page 13 line 43
2) PUSHJ TOPP ,PUTCH
2) SOJA REG2 ,WRTOIN ;MORE BLANKS TO BE INSERTED ?
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 11 line 52
1) PUSHJ TOPP ,PUTCHR
1) SOJG REG2 ,OCTWRT ;MORE DIGITS TO BE OUTPUT ?
**** File 2) LIBMAC.BKP[PAS,SYS], Page 13 line 52
2) PUSHJ TOPP ,PUTCH
2) SOJG REG2 ,OCTWRT ;MORE DIGITS TO BE OUTPUT ?
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 12 line 11
1) EXTERN PUTCHR
1) ;
**** File 2) LIBMAC.BKP[PAS,SYS], Page 14 line 11
2) EXTERN PUTCH
2) ;
***************
1) LIBMAC.MAC[PAS,SYS] and 2) LIBMAC.BKP[PAS,SYS] 12-10-79 03:00 pages 12,14
**** File 1) LIBMAC.MAC[PAS,SYS], Page 12 line 43
1) PUSHJ TOPP ,putchr
1) SOJA REG2 ,WRTHIN
**** File 2) LIBMAC.BKP[PAS,SYS], Page 14 line 43
2) PUSHJ TOPP ,PUTCH
2) SOJA REG2 ,WRTHIN
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 12 line 54
1) PUSHJ TOPP ,PUTCHR
1) SOJG REG2 ,HEXWRT
**** File 2) LIBMAC.BKP[PAS,SYS], Page 14 line 54
2) PUSHJ TOPP ,PUTCH
2) SOJG REG2 ,HEXWRT
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 13 line 11
1) EXTERN PUTCHR
1) EXTERN WRTBLK
**** File 2) LIBMAC.BKP[PAS,SYS], Page 15 line 11
2) EXTERN PUTCH
2) EXTERN WRTBLK
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 13 line 50
1) PUSHJ TOPP ,PUTCHR
1) SOJG REG2 ,.-2 ;MORE CHARACTERS?
**** File 2) LIBMAC.BKP[PAS,SYS], Page 15 line 50
2) PUSHJ TOPP ,PUTCH
2) SOJG REG2 ,.-2 ;MORE CHARACTERS?
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 13 line 59
1) PUSHJ TOPP ,PUTCHR
1) BOLEND: POPJ TOPP ,
**** File 2) LIBMAC.BKP[PAS,SYS], Page 15 line 59
2) PUSHJ TOPP ,PUTCH
2) BOLEND: POPJ TOPP ,
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 17 line 11
1) EXTERN PUTCHR
1) ;
1) LIBMAC.MAC[PAS,SYS] and 2) LIBMAC.BKP[PAS,SYS] 12-10-79 03:00 pages 17,19
**** File 2) LIBMAC.BKP[PAS,SYS], Page 19 line 11
2) EXTERN PUTCH
2) ;
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 17 line 41
1) PUSHJ TOPP ,PUTCHR
1) SOJG REG2 ,LOOP ;MORE LEADING BLANKS ?
1) PRINT: MOVE AC0 ,REG1 ;CHAR TO BE OUTPUT INTO AC0
1) PUSHJ TOPP ,PUTCHR
1) WRITRT: POPJ TOPP ,
**** File 2) LIBMAC.BKP[PAS,SYS], Page 19 line 41
2) PUSHJ TOPP ,PUTCH
2) SOJG REG2 ,LOOP ;MORE LEADING BLANKS ?
2) PRINT: MOVE AC0 ,REG1 ;CHAR TO BE OUTPUT INTO AC0
2) PUSHJ TOPP ,PUTCH
2) WRITRT: POPJ TOPP ,
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 18 line 12
1) EXTERN PUTCHR
1) EXTERN WRTOPN
**** File 2) LIBMAC.BKP[PAS,SYS], Page 20 line 12
2) EXTERN PUTCH
2) EXTERN WRTOPN
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 18 line 50
1) PUSHJ TOPP ,PUTCHR
1) SOJG REG4 ,.-3 ;MORE LEADING ZERO'S BEFORE POINT ?
**** File 2) LIBMAC.BKP[PAS,SYS], Page 20 line 50
2) PUSHJ TOPP ,PUTCH
2) SOJG REG4 ,.-3 ;MORE LEADING ZERO'S BEFORE POINT ?
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 18 line 58
1) PUSHJ TOPP ,PUTCHR
1) SOJG REG4 ,.-6 ;MORE DIGITS BEFORE POINT FROM REG1 ?
**** File 2) LIBMAC.BKP[PAS,SYS], Page 20 line 58
2) PUSHJ TOPP ,PUTCH
2) SOJG REG4 ,.-6 ;MORE DIGITS BEFORE POINT FROM REG1 ?
***************
1) LIBMAC.MAC[PAS,SYS] and 2) LIBMAC.BKP[PAS,SYS] 12-10-79 03:00 pages 18,20
**** File 1) LIBMAC.MAC[PAS,SYS], Page 18 line 62
1) PUSHJ TOPP ,PUTCHR
1) SOJG REG4 ,.-1
**** File 2) LIBMAC.BKP[PAS,SYS], Page 20 line 62
2) PUSHJ TOPP ,PUTCH
2) SOJG REG4 ,.-1
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 18 line 132
1) PUSHJ TOPP ,PUTCHR
1) MOVEI REG4 ,(REG3)
**** File 2) LIBMAC.BKP[PAS,SYS], Page 20 line 132
2) PUSHJ TOPP ,PUTCH
2) MOVEI REG4 ,(REG3)
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 18 line 142
1) PUSHJ TOPP ,PUTCHR
1) MOVEI AC0 ,"+" ;WRITES SIGN OUT
**** File 2) LIBMAC.BKP[PAS,SYS], Page 20 line 142
2) PUSHJ TOPP ,PUTCH
2) MOVEI AC0 ,"+" ;WRITES SIGN OUT
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 18 line 146
1) PUSHJ TOPP ,PUTCHR ;WRITES OUT SIGN
1) MOVM REG1 ,REG6 ;DEZIMAL EXPONENT TO REG1 - FOR WRITE
**** File 2) LIBMAC.BKP[PAS,SYS], Page 20 line 146
2) PUSHJ TOPP ,PUTCH ;WRITES OUT SIGN
2) MOVM REG1 ,REG6 ;DEZIMAL EXPONENT TO REG1 - FOR WRITE
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 18 line 152
1) PUSHJ TOPP ,PUTCHR ;NO - WRITE ONE ZERO OUT
1) MOVEI REG2 ,2 ;FORMAT - TWO DIGITS NORMALLY
**** File 2) LIBMAC.BKP[PAS,SYS], Page 20 line 152
2) PUSHJ TOPP ,PUTCH ;NO - WRITE ONE ZERO OUT
2) MOVEI REG2 ,2 ;FORMAT - TWO DIGITS NORMALLY
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 19 line 11
1) EXTERN PUTCHR
1) EXTERN TOOSML
1) LIBMAC.MAC[PAS,SYS] and 2) LIBMAC.BKP[PAS,SYS] 12-10-79 03:00 pages 19,21
**** File 2) LIBMAC.BKP[PAS,SYS], Page 21 line 11
2) EXTERN PUTCH
2) EXTERN TOOSML
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 19 line 67
1) PUSHJ TOPP ,PUTCHR ;WRITES THEM OUT
1) SOJG REG4 ,.-3 ;MORE DIGITS ?
**** File 2) LIBMAC.BKP[PAS,SYS], Page 21 line 67
2) PUSHJ TOPP ,PUTCH ;WRITES THEM OUT
2) SOJG REG4 ,.-3 ;MORE DIGITS ?
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 22 line 8
1) ;*** REGISTER DEFINITION ***
**** File 2) LIBMAC.BKP[PAS,SYS], Page 24 line 8
2) ;*** EXTERNAL REFERENCES ***
2) ;
2) EXTERN PUTLN
2) EXTERN PUTCH
2) EXTERN PUTBUF
2) ;
2) ;*** REGISTER DEFINITION ***
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 22 line 31
1) TTYOPN: OUTSTR [ASCIZ/
1) TO CONTINUE, HIT THE RETURN KEY */]
1) POPJ TOPP ,
**** File 2) LIBMAC.BKP[PAS,SYS], Page 24 line 37
2) TTYOPN: PUSHJ TOPP ,PUTLN
2) MOVEI AC0 ,"*" ;TYPE ASTERISK
2) PUSHJ TOPP ,PUTCH
2) PUSHJ TOPP ,PUTBUF
2) POPJ TOPP ,
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 24 line 106
1) PUSHJ TOPP ,RESLKP ;GO LOOKUP
1) JRST SETEOF ;ERROR ON LOOKUP OR OPEN
**** File 2) LIBMAC.BKP[PAS,SYS], Page 26 line 106
2) XCT FILLKP(REG) ;LOOKUP
2) JRST SETEOF ;ERROR ON LOOKUP OR OPEN
***************
1) LIBMAC.MAC[PAS,SYS] and 2) LIBMAC.BKP[PAS,SYS] 12-10-79 03:00 pages 24,26
**** File 1) LIBMAC.MAC[PAS,SYS], Page 24 line 115
1) RESLKP: PUSH TOPP ,FILPPN(REG) ;SAVE PPN CLOBBERED BY LOOKUP
1) XCT FILLKP(REG) ;LOOKUP
1) CAIA
1) AOS -1(TOPP)
1) POP TOPP ,FILPPN(REG) ;RESTORE PPN
1) POPJ TOPP ,
1) ;
**** File 2) LIBMAC.BKP[PAS,SYS], Page 26 line 114
2) ;
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 24 line 132
1) PUSHJ TOPP ,REWENT ;GO ENTER
1) JRST REWERR ;ERROR ON ENTER
**** File 2) LIBMAC.BKP[PAS,SYS], Page 26 line 124
2) XCT FILENT(REG) ;ENTER
2) JRST REWERR ;ERROR ON ENTER
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 24 line 142
1) REWENT: PUSH TOPP ,FILPPN(REG) ;SAVE PPN CLOBBERED BY ENTER
1) XCT FILENT(REG) ;ENTER
1) CAIA
1) AOS -1(TOPP)
1) POP TOPP ,FILPPN(REG) ;RESTORE PPN
1) POPJ TOPP ,
1) ;
**** File 2) LIBMAC.BKP[PAS,SYS], Page 26 line 133
2) ;
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 24 line 216
1) HLLZS AC1 ,FILEXT(REG) ;TO GET CORRECT CRE-DATE
**** File 2) LIBMAC.BKP[PAS,SYS], Page 26 line 200
2) MOVEM REG3 ,FILPPN(REG) ;PROJECT-PROGR. NUMBER
2) HLLZS AC1 ,FILEXT(REG) ;TO GET CORRECT CRE-DATE
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 24 line 219
1) MOVEM REG3 ,FILPPN(REG) ;PROJECT-PROGR. NUMBER
1) HRRI AC1 ,FILNAM(REG) ;WHERE TO DEPOSIT IT
1) LIBMAC.MAC[PAS,SYS] and 2) LIBMAC.BKP[PAS,SYS] 12-10-79 03:00 pages 24,26
**** File 2) LIBMAC.BKP[PAS,SYS], Page 26 line 204
2) HRRI AC1 ,FILNAM(REG) ;WHERE TO DEPOSIT IT
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 27 line 1
1) TITLE PUT *** PROCEDURES PUT, PUTCHR, PUTLN, PUTPG AND TMPCRW ***
1) TWOSEG
**** File 2) LIBMAC.BKP[PAS,SYS], Page 29 line 1
2) TITLE PUT *** PROCEDURES PUT, PUTCH, PUTLN, PUTPG AND TMPCRW ***
2) TWOSEG
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 27 line 9
1) ENTRY PUTCHR
1) ENTRY PUTBUF
**** File 2) LIBMAC.BKP[PAS,SYS], Page 29 line 9
2) ENTRY PUTCH
2) ENTRY PUTBUF
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 27 line 40
1) FILDAT= 1 ;FLAG TO TEST FOR TEXT-FILE
1) FILBIN= 17 ;FLAGS TO TEST FOR ASCII-MODE
**** File 2) LIBMAC.BKP[PAS,SYS], Page 29 line 40
2) FILBIN= 17 ;FLAGS TO TEST FOR ASCII-MODE
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 27 line 88
1) ;*** PROCEDURE PUTCHR
1) ; - PUT ONE CHAR
**** File 2) LIBMAC.BKP[PAS,SYS], Page 29 line 87
2) ;*** PROCEDURE PUTCH
2) ; - PUT ONE CHAR
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 27 line 93
1) PUTCHR: SKIPG FILEOF(REG) ;EOF?
1) JRST PUTNEOF ;NO
**** File 2) LIBMAC.BKP[PAS,SYS], Page 29 line 92
2) PUTCH: SKIPG FILEOF(REG) ;EOF?
2) JRST PUTNEOF ;NO
***************
1) LIBMAC.MAC[PAS,SYS] and 2) LIBMAC.BKP[PAS,SYS] 12-10-79 03:00 pages 27,29
**** File 1) LIBMAC.MAC[PAS,SYS], Page 27 line 99
1) CAIN AC0 ,"←"
1) MOVEI AC0 ,30 ;Ko: convert to Stanford underbar
1) IDPB AC0 ,FILBTP(REG) ;DEPOSIT CHARACTER IN OUTPUT BUFFER
**** File 2) LIBMAC.BKP[PAS,SYS], Page 29 line 98
2) IDPB AC0 ,FILBTP(REG) ;DEPOSIT CHARACTER IN OUTPUT BUFFER
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 27 line 112
1) hlrz ac0 ,filptr(reg) ;text-file? (*EJG 23OCT78*)
1) trnn ac0 ,fildat ;skip if no (*EJG 23OCT78*)
1) jrst putesx ;jump if yes (*EJG 23OCT78*)
1) PUTEST: SOSGE FILBTC(REG) ;SPACE LEFT IN BUFFER ?
**** File 2) LIBMAC.BKP[PAS,SYS], Page 29 line 109
2) PUTEST: SOSGE FILBTC(REG) ;SPACE LEFT IN BUFFER ?
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 27 line 123
1) ; Use loop "putesx" only for text-files: Stanford ASCII translation (*EJG 23OCT78*)
1) putesx: SOSGE FILBTC(REG) ;SPACE LEFT IN BUFFER ?
1) JRST [
1) PUSHJ TOPP ,PUTBF1 ;PUT CURRENT BUFFER
1) JRST putesx] ;RET TO CALLER
1) MOVE AC0 ,(AC1) ;GET NEXT WORD OF COMPONENT
1) CAIN AC0 ,"←"
1) MOVEI AC0 ,30 ;Ko: convert to Stanford underbar
1) IDPB AC0 ,FILBTP(REG) ;DEPOSIT IN OUTPUT BUFFER
1) AOBJN AC1 ,putesx ;MORE WORDS IN COMPONENT ?
1) POPJ TOPP , ;NO
1) ;
**** File 2) LIBMAC.BKP[PAS,SYS], Page 29 line 117
2) ;
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 27 line 160
1) PUSHJ TOPP ,PUTCHR
1) MOVEI AC0 ,12 ;<LF>
1) PUSHJ TOPP ,PUTCHR
1) POPJ TOPP ,
**** File 2) LIBMAC.BKP[PAS,SYS], Page 29 line 143
2) PUSHJ TOPP ,PUTCH
2) MOVEI AC0 ,12 ;<LF>
2) PUSHJ TOPP ,PUTCH
2) POPJ TOPP ,
1) LIBMAC.MAC[PAS,SYS] and 2) LIBMAC.BKP[PAS,SYS] 12-10-79 03:00 pages 27,29
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 27 line 170
1) PUSHJ TOPP ,PUTCHR ;
1) MOVEI AC0 ,14 ;<FF>
1) PUSHJ TOPP ,PUTCHR
1) POPJ TOPP ,
**** File 2) LIBMAC.BKP[PAS,SYS], Page 29 line 153
2) PUSHJ TOPP ,PUTCH ;
2) MOVEI AC0 ,14 ;<FF>
2) PUSHJ TOPP ,PUTCH
2) POPJ TOPP ,
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 28 line 77
1) MOVE AC0 ,[ASCIZ/-----/] ;ARR. SET THE LINE NUMBER
1) MOVEM AC0 ,FILLNR(REG) ;TO DASHES
1) PUSHJ TOPP ,GETCNT ;GET 1ST CHAR OF NEXT LINE
**** File 2) LIBMAC.BKP[PAS,SYS], Page 30 line 77
2) PUSHJ TOPP ,GETCNT ;GET 1ST CHAR OF NEXT LINE
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 28 line 100
1) HRRZS FILCNT(REG) ;SETS CHARACTERCOUNT TO ZERO
**** File 2) LIBMAC.BKP[PAS,SYS], Page 30 line 98
2) CAME AC1 ,[ASCII/ /] ;PAGE MARK ?
2) JRST .+4 ;NO - GET NEXT CHARACTER
2) AOS FILEOL(REG) ;YES - SET END OF LINE
2) SETZ AC1 , ;CHARACTERCNT TO ZERO
2) JRST GETBLK
2) HRRZS FILCNT(REG) ;SETS CHARACTERCOUNT TO ZERO
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 28 line 132
1) CAIN AC0 ,14 ;ARR. FORM FEED?
1) JRST GETFF ;MARK IT IN LINENR
1) CAIN AC0 ,11 ;HORIZONTAL TAB
1) JRST GETTAB ;YES
1) CAIN AC0 ,12 ;LINE FEED?
1) JRST GETLF
1) CAIN AC0 ,30 ;the stupid Stanford underbar?
1) jrst getsbr ;yes - Stanford '←', or ascii underbar
1) jrst getcnt ;no - ignore this character. get the next
1) GETFF: MOVE AC1 ,[ASCIZ/ /] ;ARR. PUT BLANKS IN LINENR
1) LIBMAC.MAC[PAS,SYS] and 2) LIBMAC.BKP[PAS,SYS] 12-10-79 03:00 pages 28,30
1) MOVEM AC1 ,FILLNR(REG) ; and do same as line feed
1) GETLF: AOS FILEOL(REG) ;SET EOLN
1) SETZ AC1 , ;CLEARS CHARACTERCOUNT
1) JRST GETBLK ;DEPOSIT A BLANK
1) GETCON: SUBI AC0 ,40 ;CORR. CHAR
1) JRST GETNEW ;DEP. INTO FILCOMP
1) getsbr: movei ac0 ,"←" ;convert Stanford underbar to '←'
1) jrst getnew
1) GETTAB: TLNE AC1 ,7 ;IS THIS TAB ON
**** File 2) LIBMAC.BKP[PAS,SYS], Page 30 line 135
2) CAIN AC0 ,11 ;HORIZONTAL TAB
2) JRST GETTAB ;YES
2) CAIE AC0 ,12 ;LINE FEED?
2) JRST GETCNT ;NO - FORGET IT
2) AOS FILEOL(REG) ;SET EOLN
2) SETZ AC1 , ;CLEARS CHARACTERCOUNT
2) JRST GETBLK ;GET BLANK IF LF
2) GETCON: SUBI AC0 ,40 ;CORR. CHAR
2) JRST GETNEW ;DEP. INTO FILCOMP
2) GETTAB: TLNE AC1 ,7 ;IS THIS TAB ON
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 29 line 2
1) opdef dateuu [date]
1) TWOSEG
**** File 2) LIBMAC.BKP[PAS,SYS], Page 31 line 2
2) TWOSEG
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 29 line 37
1) GETINF:;GETTAB AC0 , ;GET VALUE FROM SYSTEM-TABLE
1) ; POPJ TOPP ,
1) IDIVI AC0 ,144
**** File 2) LIBMAC.BKP[PAS,SYS], Page 31 line 36
2) GETINF: GETTAB AC0 , ;GET VALUE FROM SYSTEM-TABLE
2) POPJ TOPP ,
2) IDIVI AC0 ,144
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 29 line 53
1) ; MOVE AC0 ,[XWD 60,11] ;GET DAY
1) dateuu reg2,
1) idivi reg2,↑D31
1) movei ac0,1(reg3)
1) PUSHJ TOPP ,GETINF
1) LIBMAC.MAC[PAS,SYS] and 2) LIBMAC.BKP[PAS,SYS] 12-10-79 03:00 pages 29,31
**** File 2) LIBMAC.BKP[PAS,SYS], Page 31 line 52
2) MOVE AC0 ,[XWD 60,11] ;GET DAY
2) PUSHJ TOPP ,GETINF
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 29 line 60
1) ; MOVE AC1 ,[XWD 57,11] ;GET MONTH
1) ; GETTAB AC1 ,
1) ; JRST END ;MERDE
1) ; MOVE REG2 ,[POINT 7,MONTHS-1(AC1),-1] ;BTP FOR MONTH-ABBREV.
1) idivi reg2,↑D12
1) movei ac1,↑D1964(reg2)
1) movei reg2,months(reg3)
1) hrli reg2,440700
1) HRRZI REG3 ,3 ;COUNTER
**** File 2) LIBMAC.BKP[PAS,SYS], Page 31 line 56
2) MOVE AC1 ,[XWD 57,11] ;GET MONTH
2) GETTAB AC1 ,
2) JRST END ;MERDE
2) MOVE REG2 ,[POINT 7,MONTHS-1(AC1),-1] ;BTP FOR MONTH-ABBREV.
2) HRRZI REG3 ,3 ;COUNTER
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 29 line 74
1) ; MOVE AC0 ,[XWD 56,11] ;GET YEAR
1) move ac0,ac1
1) PUSHJ TOPP ,GETINF
**** File 2) LIBMAC.BKP[PAS,SYS], Page 31 line 66
2) MOVE AC0 ,[XWD 56,11] ;GET YEAR
2) PUSHJ TOPP ,GETINF
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 30 line 36
1) GETINF:;GETTAB AC0 , ;GET VALUE FROM SYSTEM-TABLE
1) ; POPJ TOPP ,
1) IDIVI AC0 ,12 ;DIV BY 10
**** File 2) LIBMAC.BKP[PAS,SYS], Page 32 line 36
2) GETINF: GETTAB AC0 , ;GET VALUE FROM SYSTEM-TABLE
2) POPJ TOPP ,
2) IDIVI AC0 ,12 ;DIV BY 10
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 30 line 48
1) timer ac0,
1) LIBMAC.MAC[PAS,SYS] and 2) LIBMAC.BKP[PAS,SYS] 12-10-79 03:00 pages 30,32
1) idivi ac0,↑D60
1) idivi ac0,↑D60
1) push topp,ac1 ;push seconds
1) idivi ac0,↑D60
1) push topp,ac1 ;push minutes
1) ; MOVE AC0 ,[XWD 61,11] ;GET HOURS
1) PUSHJ TOPP ,GETINF
**** File 2) LIBMAC.BKP[PAS,SYS], Page 32 line 48
2) MOVE AC0 ,[XWD 61,11] ;GET HOURS
2) PUSHJ TOPP ,GETINF
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 30 line 58
1) pop topp,ac0
1) ; MOVE AC0 ,[XWD 62,11] ;GET MINUTES
1) PUSHJ TOPP ,GETINF
**** File 2) LIBMAC.BKP[PAS,SYS], Page 32 line 52
2) MOVE AC0 ,[XWD 62,11] ;GET MINUTES
2) PUSHJ TOPP ,GETINF
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 30 line 63
1) pop topp,ac0
1) ; MOVE AC0 ,[XWD 63,11] ;GET SECONDS
1) PUSHJ TOPP ,GETINF
**** File 2) LIBMAC.BKP[PAS,SYS], Page 32 line 56
2) MOVE AC0 ,[XWD 63,11] ;GET SECONDS
2) PUSHJ TOPP ,GETINF
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 31 line 18
1) ENTRY PTRERR
1) ;
**** File 2) LIBMAC.BKP[PAS,SYS], Page 33 line 18
2) ;
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 31 line 120
1) PTRERR: OUTSTR [ASCIZ/
1) %? UNINITIALIZED OR NIL POINTER/] ;ARR
1) JRST WRTPC
1) ;
**** File 2) LIBMAC.BKP[PAS,SYS], Page 33 line 119
2) ;
1) LIBMAC.MAC[PAS,SYS] and 2) LIBMAC.BKP[PAS,SYS] 12-10-79 03:00 pages 31,33
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 32 line 164
1) INIAPR:;MOVE AC1 ,[XWD -1, .GTLIM] ;ARGUMENT FOR GETTAB
1) ; GETTAB AC1 , ;
1) ; HALT ;ERROR RETURN
1) ; TLNN AC1 ,200 ;TEST IF BATCH-JOB
1) ; JRST NOTBAT ;NO
1) ; TLZ AC1 ,777740 ;SET BITS 0-12 TO ZERO
1) ; IMULI AC1 ,24 ;CONVERT JIFFIES TO MSEC
1) ; MOVEM AC1 ,LIMIT ;STORE TIME LIMIT
1) ; MOVEI AC1 ,21110 ;ARGUMENT FOR APRENB
1) ; APRENB AC1 , ;ILL-MEM-REF + CLOCK-FLAG
1) ; POPJ TOPP ,
1) ;*******************************************************************************
**** File 2) LIBMAC.BKP[PAS,SYS], Page 34 line 164
2) INIAPR: MOVE AC1 ,[XWD -1, .GTLIM] ;ARGUMENT FOR GETTAB
2) GETTAB AC1 , ;
2) HALT ;ERROR RETURN
2) TLNN AC1 ,200 ;TEST IF BATCH-JOB
2) JRST NOTBAT ;NO
2) TLZ AC1 ,777740 ;SET BITS 0-12 TO ZERO
2) IMULI AC1 ,24 ;CONVERT JIFFIES TO MSEC
2) MOVEM AC1 ,LIMIT ;STORE TIME LIMIT
2) MOVEI AC1 ,21110 ;ARGUMENT FOR APRENB
2) APRENB AC1 , ;ILL-MEM-REF + CLOCK-FLAG
2) POPJ TOPP ,
2) ;*******************************************************************************
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 37 line 72
1) CAIE AC0 ," " ;LEADING BLANKS
1) CAIN AC0 ,"," ;AND LEADING COMMAS TOO
1) JRST GTSGN ;YES - OVERREAD THEM
**** File 2) LIBMAC.BKP[PAS,SYS], Page 39 line 72
2) CAIN AC0 ," " ;LEADING BLANKS
2) JRST GTSGN ;YES - OVERREAD THEM
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 39 line 13
1) EXTERN PUTCHR
1) ;
**** File 2) LIBMAC.BKP[PAS,SYS], Page 41 line 13
2) EXTERN PUTCH
2) ;
1) LIBMAC.MAC[PAS,SYS] and 2) LIBMAC.BKP[PAS,SYS] 12-10-79 03:00 pages 39,41
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 39 line 39
1) PUSHJ TOPP ,PUTCHR
1) SOJG REG2 ,.-1 ;COUNT EQUAL ZERO?
**** File 2) LIBMAC.BKP[PAS,SYS], Page 41 line 39
2) PUSHJ TOPP ,PUTCH
2) SOJG REG2 ,.-1 ;COUNT EQUAL ZERO?
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 39 line 61
1) JRST PUTCHR ;PUTCHR RETURNS OVER PUT
1)
**** File 2) LIBMAC.BKP[PAS,SYS], Page 41 line 61
2) JRST PUTCH ;PUTCH RETURNS OVER PUT
2)
***************
**** File 1) LIBMAC.MAC[PAS,SYS], Page 39 line 65
1) PUSHJ TOPP ,PUTCHR
1) SOJG REG5 ,.-1
**** File 2) LIBMAC.BKP[PAS,SYS], Page 41 line 65
2) PUSHJ TOPP ,PUTCH
2) SOJG REG5 ,.-1
***************